rm(list=ls())
library(tidyverse)

# Create folder to receive data
dir.create(here::here("data","raw","INEP"))

# Date of download
date <- Sys.Date()

# Download Censo Escolar
download_sinopse_inep <- function(year){
  
  if(year == 2005){
    url <- "http://download.inep.gov.br/download/censo/2005/Censo2005.zip"
  }
  
  if(year == 2006){
   url <- "http://download.inep.gov.br/download/censo/2006/resultados_censo_escolar2006.zip" 
  }
  
  if(year >= 2007){
    url <- paste0("http://download.inep.gov.br/informacoes_estatisticas/sinopses_estatisticas/sinopses_educacao_basica/sinopse_estatistica_da_educacao_basica_",year,".zip")  
  }
  
  download.file(url, here::here("data","raw","INEP",paste0("sinopse_estatistica_da_educacao_basica_",year,"_downloaded_",date,".zip")))
}

map(2005:2016,download_sinopse_inep)

# Download IDEB

download.file(url = "http://download.inep.gov.br/educacao_basica/portal_ideb/planilhas_para_download/2017/divulgacao_anos_iniciais_municipios2017-atualizado-Jun_2019.zip",
              destfile = paste0(here::here("data","raw","INEP"),"/ideb_anos_iniciais_downloaded_",date,".zip"))


download.file(url = "http://download.inep.gov.br/educacao_basica/portal_ideb/planilhas_para_download/2017/divulgacao_anos_finais_municipios2017-atualizado-Jun_2019.zip",
              destfile = paste0(here::here("data","raw","INEP"),"/ideb_anos_finais_downloaded_",date,".zip"))

download.file(url = "http://download.inep.gov.br/educacao_basica/portal_ideb/planilhas_para_download/2017/divulgacao_ensino_medio_municipios2017-atualizado-Jun_2019.zip",
              destfile = paste0(here::here("data","raw","INEP"),"/ideb_ensino_medio_downloaded_",date,".zip"))